open(BUFF,"exprs.eQTL.txt");
while(<BUFF>)
{
	chomp($_);
	$_ =~ s/\t+/\t/g;
	$_ =~ s/"//g;
	$_ =~ s/[^0-9a-zA-Z\.\t]//g;
	print $_."\n";
		
}
